10 :PRINTCHR$(147);CHR$(14);:REM CLEAR      SCREEN - LOWER CASE
20 :PRINT"",CHR$(18);" [210][193][206][196][207][205][160][195][207][204][207][213][210][160][194][193][210][211][160]":REM TITLE(RVS ON)
25 REM CREDIT AND INSTRUCTIONS
30 :PRINT"[195]HARLIE [208]ATERSON   [212]ORONTO   [195]ANADA"
34 :PRINT"     [212][208][213][199][160]#2280          1983 07 14"
40 :PRINT"      [212]HIS PROGRAM WILL CONTINUOUSLY"
50 :PRINT" DISPLAY A RANDOM SELECTION OF THE"
60 :PRINT" SIXTEEN COLOURS AVAILABLE ON THE [195]64."
70 :PRINT"      [215]HEN EYEBALL RELIEF NEEDED PRESS   [210][213][206]/[211][212][207][208] & [210][197][211][212][207][210][197]."
80 :FOR TM = 1 TO 7000:NEXT TM:REM TIME     DELAY FOR INSTRUCTIONS
90 :PRINT CHR$(147);CHR$(142);:REM CLEAR    SCREEN - UPPER CASE
95 REM COLOURS DATA
100 :DATA 5,28,30,31,129,144,149,150
110 :DATA 151,152,153,154,155,156,158,159
115 REM PRINT COLOUR BAR
120 :PRINT CHR$(18); "       ";
125 REM RANDOM COLOUR SELECTION PROGRAM
130 :A = INT(16*RND(1))+1
140 : FOR T = 1 TO 16
150 : READ CL
160 : IF T = A THEN PRINT CHR$(CL);
170 :NEXT T
180 CLR:RESTORE:GOTO 120:REM GO FOR NEXT    PRINT AND COLOUR SELECTION